home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus 2004 #2 / Amiga Plus CD - 2004 - No. 02.iso / AmigaPlus / Tools / Development / AmigaTalk / system / Narrator.st < prev    next >
Encoding:
Text File  |  2004-01-31  |  4.6 KB  |  189 lines
  1. " ----------------------------------------------------------------------"
  2. " Narrator Class is derived from abstract Device Class.                 "
  3.  
  4. "  WARNING:  You should know what you're doing to the Amiga OS before   "
  5. "            messing with this Class, or any other System Class!        " 
  6.  
  7. " This class is a Singleton Class, meaning there can be only one 
  8.   narrator per AmigaTalk program (what would more than one narrator
  9.   talking at the same time sound like, anyway?)
  10. "
  11. " ----------------------------------------------------------------------"
  12.  
  13. Class Narrator :Device ! uniqueInstance !
  14. [
  15.   isSingleton
  16.  
  17.       ^ true
  18. |
  19.   close
  20.  
  21.       <primitive 230 0 self>.
  22.       
  23.       <primitive 250 5 0 self>.
  24.       
  25.       ^ nil
  26. |
  27.   privateOpen
  28.  
  29.       "Use new method instead."
  30.  
  31.       ^ <primitive 230 1>
  32. |
  33.   setVolume: newSpeakingVolume
  34.  
  35.       "Range:  0 to 64 (max)"
  36.  
  37.       ^ <primitive 230 2 newSpeakingVolume>
  38. | 
  39.   setSex: newSpeakerSex
  40.  
  41.       "Female = 0, & Male = 1"
  42.  
  43.       ^ <primitive 230 3 newSpeakerSex>
  44. | 
  45.   setPitch: newSpeakingPitch
  46.  
  47.       "Range:  65 to 320Hz"
  48.       ^ <primitive 230 4 newSpeakingPitch>
  49. |
  50.   setMode: newModeString
  51.  
  52.       "valid string settings are: robotic, natural & manual"
  53.       ^ <primitive 230 5 newModeString>
  54. |
  55.   setRate: newSpeakingRate
  56.  
  57.       "Range: 40 to 400 words/minute"
  58.       ^ <primitive 230 6 newSpeakingRate>
  59. |
  60.   setFormant1: percentDeviation 
  61.  
  62.       "Range: -100 to 100 in steps of 5, Default = 0"
  63.       ^ <primitive 230 7 1 percentDeviation>
  64. |
  65.   setFormant2: percentDeviation 
  66.  
  67.       "Range: -100 to 100 in steps of 5, Default = 0"
  68.       ^ <primitive 230 7 2 percentDeviation>
  69. |
  70.   setFormant3: percentDeviation 
  71.  
  72.       "Range: -100 to 100 in steps of 5, Default = 0"
  73.       ^ <primitive 230 7 3 percentDeviation>
  74. | 
  75.   setFormant1Amplitude: newAmplitude
  76.  
  77.       "RANGE: 31 to -32 dB."
  78.       ^ <primitive 230 8 1 newAmplitude>
  79. | 
  80.   setFormant2Amplitude: newAmplitude
  81.  
  82.       "RANGE: 31 to -32 dB."
  83.       ^ <primitive 230 8 2 newAmplitude>
  84. | 
  85.   setFormant3Amplitude: newAmplitude
  86.  
  87.       "RANGE: 31 to -32 dB."
  88.       ^ <primitive 230 8 3 newAmplitude>
  89. |
  90.   setEnthusiasm: aFloat
  91.  
  92.       "From 1/32 to 32/32 only (32/32 = default)"
  93.       ^ <primitive 230 9 aFloat>
  94. |
  95.   setPriority: newSpeakingPriority
  96.  
  97.       "Range: -128 to 127, Default = 100"
  98.       ^ <primitive 230 10 newSpeakingPriority>
  99. | 
  100.   setPitchModulation: voiceQuiver
  101.  
  102.       "Range: 0 to 255"
  103.       ^ <primitive 230 11 voiceQuiver>
  104. | 
  105.   setArticulation: newPercentArticulation
  106.  
  107.       "Set amount of slurring of words.  Range:  0 to 255% (max)"
  108.       ^ <primitive 230 12 newPercentArticulation>
  109. | 
  110.   setPhoneme: phonemeString
  111.  
  112.       "Used with setCentralizeValue: to change the accent of Narrator."
  113.  
  114.       "Valid strings are:"
  115.       
  116.       "IY  long  e as in beet,   eat.
  117.        IH  short i as in bit,    in.
  118.        EH  short e as in bet,    end.
  119.        AE  short a as in bat,    ad.
  120.        AA  short o as in bottle, on.
  121.        AH  short u as in but,    up.
  122.        AO  short a as in ball,   awl.
  123.        OW  long  o as in boat,   own.     (diphthong)
  124.        UH  short u as in book,   soot.
  125.        ER  short i as in bird,   early.
  126.        UW  long  u as in brew,   boolean. (diphthong)"
  127.  
  128.       "No checking is performed on your string, so get it right!" 
  129.  
  130.       ^ <primitive 230 13 phonemeString>
  131. | 
  132.   setCentralizeValue: newCentralizePercent
  133.  
  134.       "Used with setPhoneme: to change the accent of Narrator."
  135.       "Range: 0 to 100%"
  136.       ^ <primitive 230 14 newCentralizePercent>
  137. | 
  138.   setFlags: newFlags 
  139.  
  140.       "NDF_NEWIORB = 1, NDF_WORDSYNC = 2, NDF_SYLSYNC = 4"
  141.       ^ <primitive 230 15 newFlags>
  142. | 
  143.   setVoicingAmplitude: newAVBias  
  144.  
  145.       "RANGE: 31 to -32 dB."
  146.       ^ <primitive 230 16 newAVBias>
  147. | 
  148.   setFricationAmplitude: newAFBias 
  149.  
  150.       "RANGE: 31 to -32 dB."
  151.       ^ <primitive 230 17 newAFBias>
  152. | 
  153.   speak: normalString
  154.  
  155.       ^ <primitive 230 18 normalString>
  156. | 
  157.   speakPhonetics: phoneticString
  158.       ^ <primitive 230 19 phoneticString>
  159. | 
  160.   translateText: aString
  161.  
  162.       "Returns a Phonetic string representation of aString"
  163.       ^ <primitive 230 20 aString>
  164. |
  165.   new: aValue
  166.  
  167.       'Cannot use new: method on Narrator class!' print.
  168.       ^ nil
  169. |
  170.   privateSetup ! check !
  171.  
  172.       (uniqueInstance isNil)
  173.          ifTrue: [ check <- (self privateOpen).
  174.  
  175.                    (check = 0)
  176.                       ifTrue:  [ uniqueInstance <- 'MyNarrator'.
  177.                                  ^ self
  178.                                ]
  179.                       ifFalse: [ 'Problem opening Narrator:' print.
  180.                                  <primitive 230 21 check> print.
  181.                                  ^ uniqueInstance <- nil
  182.                                ] 
  183.                  ]
  184. |
  185.   new 
  186.  
  187.       ^ (self privateSetup)
  188. ]
  189.